home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
MacPerl 506 appl folder.sit
/
MacPerl 506 appl folder
/
Mac_Perl_506r1m_appl
/
lib
/
FileCopy.pl
< prev
next >
Wrap
Perl Script
|
1994-04-25
|
511b
|
28 lines
package FileCopy;
&MacPerl'LoadExternals("FileCopy.pl");
package MacPerl;
#
# &MacPerl'FileCopy($from, $to [, $replace [, $dontresolve]])
#
sub FileCopy {
local($from, $to, $replace, $dontresolve) = @_;
if ($replace) {
$replace = "true";
} else {
$replace = "false";
}
if ($dontresolve) {
&FileCopy'FileCopy($from, $to, $replace, "DontResolveAlias",
"DontShowProgress");
} else {
&FileCopy'FileCopy($from, $to, $replace, "DontShowProgress");
}
}
1;